unit untCadCidades;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untCadPadrao, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
   cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
  dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven, dxSkinSharp,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
  dxSkinscxPCPainter, dxSkinsdxBarPainter, cxContainer, cxGroupBox,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, cxLabel, cxTextEdit, cxDBEdit, cxGridTableView,
  cxGridBandedTableView, cxGridDBBandedTableView, IBCustomDataSet,
  cxIntlBase, cxintl, cxPropertiesStore, ACBrBase, ACBrEnterTab,
  cxGridCustomPopupMenu, cxGridPopupMenu, dxBarDBNav, ImgList, ActnList,
  dxBar, cxClasses, IBQuery, ExtCtrls, cxGridLevel, cxGridCustomView,
  cxGrid, cxGridDBTableView, cxPC;

type
  TfrmCadCidades = class(TfrmCadPadrao)
    dtListCODIGO: TIntegerField;
    dtListCOD_IBGE: TIBStringField;
    dtListCOD_IAGRO: TIBStringField;
    dtListCOD_SEFAZ: TIBStringField;
    dtListESTADO: TIntegerField;
    dtListUF: TIBStringField;
    dtEditCODIGO: TIntegerField;
    dtEditCOD_IBGE: TIBStringField;
    dtEditCOD_IAGRO: TIBStringField;
    dtEditCOD_SEFAZ: TIBStringField;
    dtEditESTADO: TIntegerField;
    cxDBTextEdit1: TcxDBTextEdit;
    edtNome: TcxDBTextEdit;
    cxLabel2: TcxLabel;
    cxLabel1: TcxLabel;
    dtEditNOME: TIBStringField;
    dtListNOME: TIBStringField;
    cbEstado: TcxDBLookupComboBox;
    cxLabel6: TcxLabel;
    lstUF: TIBQuery;
    DSUf: TDataSource;
    lstUFCODIGO: TIntegerField;
    lstUFNOME: TIBStringField;
    lstUFUF: TIBStringField;
    GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn;
    GridDBBandedTableView2COD_IBGE: TcxGridDBBandedColumn;
    GridDBBandedTableView2COD_IAGRO: TcxGridDBBandedColumn;
    GridDBBandedTableView2COD_SEFAZ: TcxGridDBBandedColumn;
    GridDBBandedTableView2ESTADO: TcxGridDBBandedColumn;
    GridDBBandedTableView2UF: TcxGridDBBandedColumn;
    GridDBBandedTableView2NOME: TcxGridDBBandedColumn;
    cxGroupBox1: TcxGroupBox;
    cxDBTextEdit4: TcxDBTextEdit;
    cxLabel5: TcxLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    cxLabel4: TcxLabel;
    cxDBTextEdit3: TcxDBTextEdit;
    cxLabel3: TcxLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCadCidades: TfrmCadCidades;

implementation

{$R *.dfm}

procedure TfrmCadCidades.FormShow(Sender: TObject);
begin
  inherited;
  lstUF.Close;
  lstUF.Open;
end;

end.
